#simulate a dataset with continuous data
dataset <- matrix(runif(1000 * 10, 1, 1000), nrow = 10 )
testIndFisher(dataset[, 1], dataset[, -1], xIndex = 1, csIndex = 2)
condi(ind1 = 1, ind2 = 2, cs = 3, dataset, R = 1)
condi(ind1 = 1, ind2 = 2, cs = 3, dataset, R = 999)
Run the code above in your browser using DataLab